@NullResponse @CheckFlag(ChastityIsOn) 
(Continue)
@RT(#SlaveName,#Slut,#SubName,Slave,Slave,Slave,Slave) #DT @LockImages @PlayAudio[\GNMSounds\Chastity\PutChastityOn\*.mp3]  @ShowImage[GNMImages\Chastity\ChastityOn\*.jpg]
@RT(Put on your #Cage,Get your #Cage on,Put on the #Cage at once,Hurry up and get the #Cage back on,Be quick and get your #Cage back on) #DT 
(On)
@NullResponse @Wait(#Random(15,30))
Are you done? #DT
[yes] #GNMGood #DT @SetFlag(ChastityIsOn)
[no] Hurry up! #DT #MeritChangeNLow @Goto(On)
@DifferentAnswer #GNMYesOrNo #DT
@NullResponse @ChastityIsOn
(ChastityIsOn)
@NullResponse @UnlockImages
@NullResponse @CallReturn(CR\End\ChastityTraining\DenialLevel.txt)
@End